home *** CD-ROM | disk | FTP | other *** search
/ Asobe! Fotoshock 5.0 ERO / Asobe! Fotoshock 5.0 ERO.iso / pc / main.dxr / ì‡ë†_13_toolsBar.ls < prev    next >
Encoding:
Text File  |  1999-03-23  |  886 b   |  35 lines
  1. property spriteNum, mymem, dwnmem
  2. global gmyphotonum
  3.  
  4. on beginSprite me
  5.   set mymem to the member of sprite spriteNum
  6.   set dwnmem to the name of mymem & "_dwn"
  7.   set the member of sprite spriteNum to dwnmem
  8. end
  9.  
  10. on mouseUp me
  11.   toolsbar()
  12. end
  13.  
  14. on toolsbar
  15.   if count(the windowList) = 2 then
  16.     deleteAt(the windowList, 2)
  17.     set the member of sprite spriteNum to mymem
  18.   else
  19.     case gmyphotonum of
  20.       2, 28:
  21.         set toolwidth to 112
  22.         set toolhight to 210
  23.       otherwise:
  24.         set toolwidth to 208
  25.         set toolhight to 210
  26.     end case
  27.     set pix to 43
  28.     set the rect of window "Tools" to the rect of the stage + rect(800 - toolwidth, pix, 0, -(600 - (pix + toolhight)))
  29.     set the windowType of window "Tools" to 49
  30.     set the fileName of window "Tools" to "@/tool"
  31.     open(window "Tools")
  32.     set the member of sprite spriteNum to dwnmem
  33.   end if
  34. end
  35.